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3 1 3 
; 2 LANGUAGE (BL1I$S32), 3 
3001 i spent = arent 3 
3 = $ 
; é 006 : BEGIN : 
“ ' : 
: 8 43 i geeeerenenreerereneenerereerereererereerereeeeeeeeneeeeeerereeeeeeeeeeereere : 
3 ie * ; 
. 3 pay 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
: 41 11 1 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . ; 
: \¢ 0018 : :¢ ALL RIGHTS RESERVED. - : 
: (14 014 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
. oe 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®« 3 
; 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
; 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY « 3 
: 18 Bele 1 !® OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY @ ; 
3 i ith : 7? TRANSFERRED. * 

; : * 

3 21 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; ¢ 00 ¢ 1 !@ AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 Z 88 Z : CORPORATION. @ 

Ps : ° 

; @& 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: $$ 8 $ : . SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 

: 28 0028 1 ie ° 

: $3 34 : VaeeReRReEAAAAAAAHAAAAAAAAAHHAREKAAAAAERERARAAAEHAAARARREERARAReReeeReReeReeee 

; & 0031 1 !44 

: $ 0035 1! 

5 0035 1 ! FACILITY: F11IACP Structure Level 2 

3 34 0034 1! 

; 35 0035 1 ! ABSTRACT: 

; 36 0036 1! : 

; aT 0037 1! This routine implements the DEACCESS functior. 

; 3 ite: 1! 

é 39 0039 1 ! ENVIRONMENT: 

; 40 0040 1! 

s 6) 0041 1! STARLET operating system, including privileged system services 

3 4g pOeg 7% and internal exec routines. 

: 44 Bock \ 

> 45 boes 1} 

: 46 B206 7? 

: rth S94 : AUTHOR: Andrew C. Goldstein, CREATION DATE: 6=-Jan-1977 23:29 

: 49 0043 i MODIFIED BY: 

[001 !cDS0009 51 1! v04-001 ¢DS0009 Christian D. Saether 9-Nov-1984 

3:002 !CDS0009 36 1! Mark FCB stale when deferring truncation. 

3003 !CDS0009 5 ie 

. ae 54 1! v03-012 CDS0008 Christian D. Saether 21-Aug-1984 

; H ¥ ! Changes to handle stale fcbs. 

: 54 $589 1: v03-011 ¢DS0007 Christian D. Saether 19-Apr-1984 


st and 


a 8 

DEACCS -Jan-1985 17:47:09 AX-11 Bliss<-32 V4.0-742 Page 2 

v04-001 gasenn}3 4 15525:99 F11X.BUGSRCIDEACCS.832;1 ° (1) 

: 56 if } Many changes to reflect modified access lock handling. : 
: $ 01: v03-010 cDs0006 Christian D. Saether 29-Dec-1983 : 
: 28 eg : Use L_NORM Linkage and BIND_COMMON macro. : 
: 60 O98 1/ v03-009 CDS0005 pF 35 4) D. Saether sn gep~1985 F 
: 6) opee : } Manually merge in ACGO343, ACG59616, $TJ3109. : 
: 6 0066 1 i V03-008 ACG0343 Andrew C. Goldstein 19-Jul-1983 16:46 : 
. & 0067 1 i Inhibit revision date count if NORECORD is specified : 
: 66 0069 1 i V03-007 ACG5S9616 Andrew (. Goldstein, 21-Jun-1983 15:53 ; 
: poh Boys : . Create common subroutine for revision and expiration dates : 
: 69 0072 1: V03-006 $TJ3109 Steven T. Jeffreys, 06-Jun-1983 : 
: £0 Bee 7 : Copy FHWM from FCB to file header. : 
: 7? 0075 1: v03-005 CDS0006 Christian D. Saether 14-Sep-1983 : 
: it it : } Modify SERIAL_FILE interface. : 
: 75 0078 1! V03-004 LMPO149 L. Mark Pilant, 13-Sep-1983 11:26 : 
3 0079 1! Correct a opts problem that caused problems during the | 3 
: a oie : protection check of a write attribute operation. : 
: 79 008 1: v03-003 CDS0003 Christian D. Saether 7 ha | : 
: £0 in : Sychronize processing by FID using SERIAL_FILE. : 
; 8 0085 1: v03-002 cps0002 Christian D. Saether 21-Apr-1983 | ; 
; 8 0086 1! Modify truncate access arbitration checks to permit $ 
ee 0087 1! cluster operation. Possibly defer truncation or 3 
$ = i494 : perform a deferred truncate operation. : 
> 87 0090 1: v03-001 cps0001 Christian D. Saether 7=Apr-1983 ; 
; 59 sad : Make mark-for-delete checks work in a cluster. : 
: 90 0093 1} v02-006 ACG0258 Andrew C. Goldstein, 26-Jan-1982 16:56 ; 
$ 4 Boos : Fix reference to RVN 1 in expiration date processing : 
: 3 0096 1! v02-005 acG0230 Andrew C. Goldstein, 23-Dec-1981 23:46 : 
3 a iad : Add expiration date support : 
: 96 0099 1} v02-004 ACG02467 Andrew C. Goldstein, 23-Dec-1981 20:49 : 
3 p44 B10 : Update revision count only if written : 
: 99 0102 1: v02-003 ACG0245 Andrew C. Goldstein, 23-Dec-1981 20:48 ; 
; 1n9 Biz : Move queueing of spool file to cleanup : 
; 108 0105 1 v02-002 ACG0167 _ Andrew C. Goldstein 16-Apr-1980 19:25 ; 
> 10 0106 1: Previous revision history moved to (F11B.SRCJF11B.REV : 
: 104 0107 1 !ee 3 
3; 105 B108 1 : 
; 106 109 1 5 
; 107 0110 1 LIBRARY ‘SYSS$LIBRARY:L B L352": 3 
; 108 0111 1 REQUIRE *SRC$:FCPDEF .832'; $ 
; 109 1198 1 3 
: 110 1103 1 FORWARD ROUTINE ae } ; 
3.64907 11046 1 SET_REVISION : LLNORM NOVALUE, ! set revision and expiration date : 

3 


! handler for delayed truncate 
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GLOBAL ROUTINE DEACCESS : L_NORM = 
'oe 
' 
FUNCTIONAL DESCRIPTION: 
This routine implements the DEACCESS function. 
If an attribute List is present, attributes are written. 
CALLING SEQUENCE: 
DEACCESS () 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 

I10_ PACKET: I/0 packet in process 
CURRENT _WINDOW: window of file 
PRIMARY_FCB: FCB of file 


OUTPUT PARAMETERS: 
NONE 


WAAAY POPU PIPIPIPININID 2 OO 


IMPLICIT OUTPUTS: 

NONE | 
ROUTINE VALUE: 

NONE 
SIDE EFFECTS: 

fi 


le deaccessed 
header may be modified 
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FCB may be deleted 

1 

2 LABEL 

; DELAY_TRUNC; ! truncation delay block 

5 LOCAL 

6 DO_EXPIRE, ! flag indicating sep trgcton to be updated 

7 MODIFIED, ' flag indicat ing file has been modified 

8 x : teed gopy of truncate lock count 

9 AbD REF BBLOCKVECTOR [,ABD$C_LENGTH), 

60 FIB : REF BBLOCK, | FI6 

61 FCB : REF BBLOCK, ! pointer to FCB 

6¢ HEADER : REF BBLOCK; ! file header 

rf BIND_COMMON; 

66 EXTERNAL ROUTINE 
001 !CDS0009 FCB_STALE L_NORM NOVALUE, ! mark FCB as stale 

$7 REBLD_PRIM_FCB : L_NORM NOVALUE, ! rebuild primary fcb from header 

68 BUILD-EXT_FCBS =: L_NORM NOVALUE, : build extension fcb chain 

69 CONV_ACCLOCK : LINORA, ' convert access lock. 

| 
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} eeinter to buffer descriptors 
-BBLOCK C.10_PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPTI; 
ET FIB (.ABB); 
-PRIMARY_F CB; 


! Synchronize further file processing. 


PRIM_LCKINDX = SERIAL_FILE (FCB CFCBSW_FID3); 
! Make sure irrelevant parameters are not present. 


170 6 LOCK COUNT : L_NORM, } get count of granted locks. 
71 6 SERIAL_FILE : LINORM ! interlock file processing 
i 6 TRUNC CHECKS : LIJSB_GARGS NOVALUE, | parameter checks 
7 6 GET_FIB : LINORA, ! get FIB of request 
74 6 READ_HEADER : LINORM, ' read e header 
75 6 MARK DIRTY : L-NORA, ' mark buffer for write-back 
76 6 WRITE_ATTRIB : LINORM, ! write attributes routine 
77 7 TRUNCATE : LINORM, ' truncate file 
78 7 UPDATE FCB : LUNORM, ! update contents of FCB 
ia f CHECKSOM : LINORM; ! compute file header checksum 
2 7 ! Set the cleanup flags to cause the deaccess to occurr. 
8¢ Find the buffer descriptor and FIB. 

7 
7 CLEANUP_FLAGS hee tarts = 1; 
7 CLEANUP_FLAGSLCLF _DEACCESS) = 1; 
8 CLEANUP-FLAGSCCLF-DELWINDOW) = 1; 
8 
8 
8 
8 
8 
8 
8 
8 
9 
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FIBCFIBSV_EXTEND) 
ERR_STATOS (SS$_BADPARAM) ; 
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f the access lock is held in NL mode, and this wt 
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cessible, then set the stale flag to force rebuild o 


I 
a 
from the header(s). 
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IF .FCB cecese ACCLKMODE] EQL LCKSK_NLMODE 
AND .FCB CFCBSL_ACCLKID) NEQ 0 


N 
FCB CFCBSV_STALE) = 1; 


! Determine if the expiration date is to be updated, and if the file has 
actually been modified. 


HORE 

WINDOW ueBst WRITES] NEQ 0 
RT_WINDOWLWCBSL_READS] NEQ 0 
CaS EFBLK) an 9): 

MODIFIED = .CURRENT WINDOWLUCBSV_ WRITE 

AND NOT .FIBLFIBSV wor CORD) 

AND (. CURRENT _WINDOWLWCBSL_WRITES] NEQ 0 


DO_EXPIRE = .CURRENT WINDOWCLWCBSV purines 
AND NOT TBE Bs CORD 
C E 
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OR .10_PACKETCIRPSW_BCNT) GTRU ABDSC_ATTRIB 
OR .FIBCFIBSV_TRUNCT); 


' If the file is accessed for write, if we must update the expiration 
} date, or if the file is marked for delete or is marked bad and this 
i 


iss-32 v4.0 
SRCIDEACCS. 


is the last access, read the header. 


IF .CURRENT WINDOWCWCBSV_WRITE) 
OR .D0_EXPI 
OR ((.FCBCFCBSV_MARKDEL) 
OR .FCB-CFCB$V_DELAYTRNC) 

OR .FCB CFCBSV~STALE 

OR .FCBCFCBSV_BADBLK 

OR CLEANUP FCAGSCCLF_SPOOLFILEJ) 
And .FcB FCBSW_REFCNT) EQC 1) 


BEGIN 

HEADER = READ_HEADER (0, .FCB); 
If .FCB CFCBSV_STALEJ 

THEN 


BEGIN 
REBLD_PRIM_ FCB (.FCB, .HEADER); 
BUILD_EXT_FCBS (HEADER) ; 


E 
END; P] 


} this the Last deaccess from a file marked for delete, delete the file. 


's 
If the file is a spool file, send it to the job controller. 
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IF .FCBCFCBSW_REFCNT] EQL 1 
HEN 


2 
$o0 
61 BEGIN 
$06 IF .FCBCFCBSV_MARKDEL) 
o THEN 
66 : Make sure we are the only accessor left in the entire cluster. 
; : 
268 IF LOCK_COUNT (.FCB CFCBSL_ACCLKIDJ) EQ. 1 
1 CLEANUP_FLAGS CCILF_DELFILE) = 1; 
7 If . CLEANUP PLASSt EL SPOOLF ILE) 
if THEN CLEANUP_FLAGSCCLF_DOSPOOL) = 1; 
| : If the FCB is marked bad, now set the bad block bit in the file header. 
, : 
78 If .FCBCFCBSV_BADBLKI 
79 THEN 
80 BEGIN 
81 HEADERCFH2$V_BADBLOCK) = 1; 


ec ce ce ee ce ee ce ce ce ce ee ee ce ce ce ce ee cD ee ee ee ee ce ee ee ce ce ce ce ce ee ce ee ce ce ce ed ed ee ed eed ee 


BB HFA AINA AAAI AIP NINPIPININIW ES & BE AAAI EB BB EE Popononononononronrowi 
= — 


MARK DIRTY (CHEADER) ; 
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END; 
Update revision count, date, and expiration date as appropriate. 


IF MODIFIED 
OR .DO EXPIRE 
THEN SET_REVISION (.HEADER, .MODIFIED); 


' Do deaccess ee ty. for a write accessed file. If a deaccess lock 
! was requested on the file, set the lock bit. Then process the write 
} pttrtpytes. f any. If attributes were written, then clear the 

i 2 


IF_ . CURRENT _WINDOWLWCBSV_WRITE) 
THEN 


BEGIN 
MARK_DIRTY (.HEADER); 


Update the FHWM in the file header. 
i 9 If the FHWM is not supported in this header, do nothing. 


o If the volume FHWM attribute is disabled, then set the FHWM 
to the file size + 1. This will protect the contents of the 
file should it be opened and modified some time in the future 


! 

' 

' 

' 

' 

when the volume's FHWM attribute is enabled. 

! o If the FCB FHWM is 0, and the file header supports FHWM, then 

i get the header's FHWM to the file size + 1. This will likewise 

} protect the file contents. 

! o If the FCB FHWM is nonzero, and the file header supports FHWM, and 
: the volume FHWM attribute is enabled, simply copy the FCB FHWM to 
the file header. 

i For FHWM to be supported, the ‘highwater’ field in the 

! header must be present. All files created on version 4 

or later systems will have this characteristic. 

1 gg NEADERCFH2SO_1DOFF SETI GEQU (SBYTEOFFSET(FH2$L_HIGHWATER) +4) /2 


IF .CURRENT VCBLVCBSV pon sewerens 
a ~FCBCFCBSL_HIGHWATER) EQL 0 


HEADERCFH2SL_HIGHWATER) = .FCBCFCBSL_FILESIZE) + 1 
HEADERCFH2$L_HIGHWATER] = .FCBCFCBSL_HIGHWATER); 
IF_ .CURRENT WINDOWCWCBSV_DLOCK) 
THEN HEADERTFH2$V_LOCKED] = 1; 


IF .10_PACK TCIRPS¥_BCNT) GTR ABDSC_ATTRIB 
AND’ .USER_STATUSLOJ 


2 


L222 


on 


b-Jna198s 15:25:93 | HET L Bk iaes3e Yee 5 852, 


wR Brett ATTRIB (, { HEADER, -ABD, 0); 
HEADER = ADER: 
HEADERLF HOS. E atkep = 0; 


! If a truncate is requested, do it, if the file was write accessed and 
! there are not other accessors now, else delay the truncation until 
the last reader deaccess. 


IF .FIBCFIBSV_TRUNCI 
a NOT .FCB CFCBSV_MARKDELJ 


N 
IF_ .CURRENT VCB 


BCVCBSV moh ocd 
THEN ERR_EXTT (SS S$ URTIL 
IF .FCB Cr cesu REFCNT] E fo 
rnen’n? & SCOUNT (.FCB CFCBSL_ACCLKIDJ) EQL 1 
BEGIN 


CHECKSUM (HEADER) 

TRUNCAT E (C.F 18 "HEADER, FB CF IBSL_EXVBN)); 
FLAGSCCLF_FIXFCB) = 0; 

UBDATE. ATE Feb FILES “HEADER); 


. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 


SE 
IF 13 hist WCNT) EQL 1 ! 1 is just us. 
CF CBSV nate ' myst e 9 NOLOCK somewhere 
us 
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' Lock will be converted back 
! in MAKE _DEACCESS 


There are other readers, but no writers, accessing the file se we will make 
checks to see if the truncation arguments make sense, and i if s 

store appre riate context in the FCB so that the last reader to “deaccess 

the file will perform the truncation. 


going away. 


me em ee ed ed ed ed ed et od 
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BEGIN 
LOCAL 
TRNVBN; 

TRNVON = .FIB CFIBSL_EXVBN); 

TRUNC_CHECKS (.FIB, sHEADERS; 
' lock will converted when new lock ¢ mode My Seneunted and lock 
! converted in MAKE_DEACCESS. Even if it wa $ mete verted up to 
' Pw above (i.e., was already held in either), Ll have to be 
lowered because this thread means the Last Sriter on this node is 


SF 


vO4=601 erie BEESON 


FCB 


ree fF EBs “DELAY TAMC. j= i 
Fie F IBSL- tmExvONt’ = Ty fyea: -FILESIZE) + 1; 


WN — & rt 
SSLSSEANS 


'COS 
:C0S ! Mark FCB as stale so that other nodes will pick up the fact that 
ieee i @ deferred truncation remains to be done when the last access goes away. 
5 CDs 
fo? MAKE _FCB_STALE (.FCB); 
4 ; § LSE 
2 ERR_EXIT (SSS_ACCONFLICT); 
te 5 
4 
4 
4 


ELSE 
DELAY_TRUNC: 
BEGIN ' not write accessd 
BUILTIN FP; 


LOCAL SAVE_US1; 


dd ed dd oO 
DSBNOARUNW—OSS w 


IF NOT .FCB CFCBSV Pema 
THEN LEAVE DELAY_TRUN 


IF .FCB prceey easy NARKD NEQ 1 
OR . KDELJ 
tres iy BN NJ 


OR Fee EQL 0 
OR LOCK T TF FCBSL OACCLKIDI) NEQ 1 
THEN LEAVE BECAY TTRUNES 


te ed ad a ee ed on ee 
DONOnFUNW—ODS 


SAVE_US1 = .USER_STATUS [1]; 
CHECRSUM (.HEADER); 
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i 
4 E 
d 
END; ! of wanted to do a truncation 
END ! of was write accessed. 


FP = TRUNC_HAN 
FRUNCATE USECOND Ute. -HEADER, .FCB CFCBSL_TRUNCVBN)); 
= 

USER_STATUS (1) = .SAVE_US1; 

END; 
; : | Seeure failure to let the error cleanup do the actual deaccessing. 
io 36 
441 40 RETURN 0; 
44 41 
44 42 ! end of routine DEACCESS 


oTITL . £S3 
-IDENT \V04-001\ 


. 
& 
. 
. 
. 
. 
~ 
7 
7 
. 
. 
. 
. 
. 
. 
o 
. 
o 
° 
. 
7 
. 
. 
. 
7 
o 
. 
o 
. 
. 
. 
. 
7 
2 
. 
e 
. 
’ 
+ 
° 
. 
o 
. 
. 
. 
a 
. 
cs 
. 
. 
o 
o 
. 
. 
. 
° 
. 
oe 
. 
° 
. 
. 
2 
o 
. 
. 
. 
” 
> 
a 
. 
a 
. 
” 
- 
. 
. 
o 
. 
. 
. 
o 
. 
o 
. 
. 
. 
. 
. 
o 
. 
7 
e 
. 
. 
. 
. 
. 
< 
7 
a 
- 
a 
. 
. 
. 
. 
. 
2 
. 
. 


mics 


23 
55 0B A0 
51 
57 
3 0B Ad 
1 64 


51 


w——OOo no 


28 


24 


x¢ 


2s 


>S 


FP BW MOWWUNIMNO OOM OOO 
—>- 
2° 


Ret ane 684 ahs San 4 68S OPN eo SHS GRD 4 op 4 —Oogm—OoO "OUT "CCU 
- Ly al 
= “+ oes — > 


-EXTRN 
oEXTRN 
-EXTRN 
-EXTRN 
~EXTRN 
eEXTRN 
~EXTRN 


»PSECT 
-ENTRY 
AB 


a 


r 
nNu< 


=-OO—@$-m—-@-Oagm 
=DYrOoO43ADloOo4aDolo- 


el ee esl lee aaa) 


creceeeerrererr 


paeteref nat ogy 
—Om 
oO“ <= OOUMN 
ah ee 
uwc<c ~ 


Be 1bi5:9> «| YANG AT Btla8532 a¥t2°5 3 


Pett tb af eal 


tock MECKS” Ge 

READ AE READER maa: Sey 
ITE AT TTRIG, TRUACATE 

UPDATE_FCB, twecksum 


SCODES ,NOWRT , 2 


peacce ss Save R2,R3,R4,R5,R6,R7,RB,RI,R11 


saree A 


oe 


rie GET_FIB 


(FCB) 
35(FCB) 

tr 

a7, #1, 11(RO), RS 


dO ‘EXPIRE, RO, DO_EXPIRE 
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5 17:47: AX-11 Bliss-32 V4.0-742 
2 13:05:99 F11X.BUGSRCIJDEACCS.832;1 
PUSHL HEADER 

CALLS #1, MARK_DIRTY 
CMPB ss (HEADER) > #40 
BLSSU 

MOVL  =104(BASE), Rg 
BBS #4, 83(RO). 178 
TSTL 6 (FCB) 

BNEO 3 

ADDLS ‘ { 56(FCB), 76(HEADER) 
MOVL AB cey 76 (HEADER) 
BBC aos m6. 208 
BISB2 #64 Be RAEADERD 

VL  =112(BASE), 

CMP 30(R0), 5 

BLEQU 21$ 

BLBC = (RO), 218 

CLRL 0s = (SPS 

PUSH #°M<RS,RI> 

CALLS #3, WRITE_ATTRIB 
MOVL 4 (BASE) READ 
BICB2 wgé e(HEADER) 
BLBC = 2 (F 18) 5$ 

BBS #1, 34(FCB), 258 
MOVL  -104(BASE), 

BBC #4, 11(RO), 2 
CHMU 664 

RET 

CMP 4(FCB), #1 

BNEQ $ 

PUSHL 72(FCB) 

CALLS #1, LOCK_COUNT 
CMPL =soRO. 1 

BNEO 

PUSHL HEADER 

CALLS #1, CHECKSUM 
PUSHL  28(FIB) 

PUSHR #*M<R4,R5> 

CALLS a3. TRUNCATE 
BICB2 #2. (BASE) 

PUSHL  4(BASE) 

CALLS #1, UPDATE_FCB 
CMP B(FCB>, #1 

BNEQ 

BBS #3, 34(FCB), 24$ 
Ist oF cB) 

PUSHL FCB 

PUSHL #4 

CALLS #2, SONV_ACCLOCK 
BLBC =«_—«aRO._ «26S 

MOVL § 28(FIB), TRNVBN 
mOVG «FB, RO 

BSBW TRUNG CHECKS 
BISB2 #2, 35(FCB) 


g 
BoJann194s 17:47:09 Yanctt BL ige-52 v4. 0-742 
di, SotFCB), 28(F1B) 
#), MAKE_FCB_STALE 
2 
#2048 


#1, 35(FCB), 288 
4(FCB), #1 


#1, 34(FCB), 288 
(FCB) 


hore 
Own 
ss 
: 
rw 
Ska La 


oe Se Oe Be ee Oe ee 
—a=t ated «tet ato 
= = 

mn oF 

N— ON Ww 


— 
= 
™m 
we 


WViOFRPOWFO WLOWOUW 
FOF ON FO ww 


(FCB) 
#1, LOCK_COUNT 
RO, #1 


"OOo -90 70 —O Mm @WMoW —- "ono 
Oo ON —@ OWN SS FDO" 


4(R6), SAVE_US1 
HEADER 


#1, CHECKSUM 
TRUNC_HANDLER, (FP) 
80(F CB) 

HEADE 

5 
& 


ow 


ADER 

O(BASE) 
TRUNCATE 

(FP) 

SAVE_US1, 4(R6) 

RO 


>a 
WwPrunton — 


~wueoO Wn ONW—rn@ o ~~ mw 
~ 
~ 
Lad 


VMiVrIFZOonw 


~ 
oD 
we 


; Routine Size: 634 bytes, Routine Base: S$CODES + 0000 


; 446 1443 1 


9 
DEAC b-san-19 § 17:47: AX-11 Bliss-32 v4.0-742 
V C81 wm Seat H4 15505399 F11X.BUGSRCJDEACCS.B32;1 
: 46 1444 1 ROUTINE TRUNC_HANDLER (SIGNAL, MECHANISM) = 
[6 1645 1 
> 66 1446 1 !46 
> 66 1647 1 
: 650 1448 1 ine 
; 451 1449 1 
> 65 1450 2 BEGIN 
3; 6 1451 
> 454 14 ; MA 
> 655 145 SIGNAL : REF BBLOCK, 
: 4 1454 MECHANISM : REF BBLOCK: 
; ree 1456 IF_.SIGNAL CCHFSL_SIG_NAME) EQL SS$_CMODUSER 
> 659 145 THEN 
; 460 1458 SUNWIND (DEPADR = MECHANISM CCHFSL_MCH_DEPTH)); 
: 66 1460 2 SS$_RESIGNAL 
: 66 1461 1 END: 
eEXTRN SYSSUNWIND 
0000 00000 TRUNC_HANDLER: 
-WORD Save nothing : 
50 04 aC DO 00002 MOVL SIGNAL, R > 1456 
00000624 &F 04 Ad D1 00006 CMPL «=«-_:« & (RO) ,_- #1060 ; 
OE 12 000 BNEG ~=s«d1$ : 
7E 04 0001 CLRL_ = (SP) + 1458 
7E 08 ac 08 C1 9001¢ ADDL3 #8, MECHANISM, -(SP) : 
000000006 00 02 FB 0001 CALLS a2 $YSSUNWIND ; 
50 0918 8F 3¢ 9001 1$: MOVZWL #2528, RO : 1461 


; Routine Size: 36 bytes, Routine Base: SCODES + 027A ; 


ot a 
ee el et et et tt el ee 
SN NAA AAAAAO 


oat at at et et er ee oe 
WN —O DONO UFWN "OOOO 


NNN 
209000909 VAIN 


9.0000 G9 Co 
CONAN 


ww 
scs 


WM 


So 


Cooo 
RIPIDIPIMIPININIPIAIPIAIPINININIMIAIIII INI a a as st tt tk tk kk 


Oe Oe Oe Oe Oe ee ee Oe Oe Oe OH OH Oe Os FH OH Oe OH SE Re OH OE OH Oe OH OHO OE Oe Oe OH OH OH OH OE Oe Os OH Os Os Oe Os OH Oe Oe Os OH Oe ws OH Oe Os Oe ee eees 
PVP DPD ASI AA AAA AAI 

de a a a aad ed a ed ee a ed ed de ee ce ee a ce a ec ee ae ed ce ee el ee ee ee ee el eed ee en eed eed eed ed 

so wbnd-ushe2e hie ah hudte ae ae hoe 


PRY a at nt et wt ot ot os ot ot 
—OOCOBnNOuwnFwnr-40 


GLOBAL ROUTINE SET_REVISION (HEADER, MODE) : L_NOR 


ee 


CALLING SEQUENCE: 


INPUT PARAMETERS: 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


BEGIN 
LABEL 
CHECK_EXPIRE; 
MAP 
HEADER 
MODE 
LOCAL 
DAY_TIME 
DAY_TIME2 
uCcB 
PRIMARY_VCB 
IDENT_AREA 
BIND_ COMMON; 
EXTERNAL ROUTINE 
MARK _DIRTY 


FUNCTIONAL DESCRIPTION: 


This routine updates the revision count and date, and the 
expiration date in the file header as specified. 


OUTPUT PARAMETERS: 
NONE 


: VECTOR fs . 


: V 

: REF BBLOCK, 
: REF BBLOCK, 
: REF BBLOCK; 


SET_REVISION (HEADER, MODE) 


file header modified and marked 


: REF BBLOCK, 
: BITVECTOR; 


ECTOR 


> L NORM; 


a 9 
-Jan-19 


Daw 
ow 
we 


5 17:47:09 AX-11 BLi 
“0c t-1984 15505399 F11X.8UGS 
M NO E 


VALU 


HEADER: address of file header to operate on 
MODE: 0 to just update expiration date 
to set revision and expiration date 


3 to do above and clear backup date 


dirty 


check file expiration date 


' file header 
! routine mode flags 


RVN 1 
VCB of RVN 1 
header ident area 


mark buffer for write-back 


| 


DEACC Jan-1985 17:47: AX-11 Bliss-32 V4.0-742 P 16 
v04=001 B-Jan-1985 15:05:57 | Peta eBbdeesg2 ayes 58S? oF 


$ 2 ¢ ! 38 Locate the ident area and check that the date fields are present. 
: 524 1501 

; 32> 1 § IDENT_AREA = .HEADER + .H ADERCFH2$B IDOF FSETJ*2; 

; 5 6 15 IF -HEADERTEH 2$8_MPOFFSET HEADERTFH2$B_IDOFFSET] LSSU 

; > 1524 (SBYTEOFFSET™ (FI2$Q_E EXPDATE) + FI2$S seep PDATE) / 2 

; 509 1 5 THEN RETURN; 

3 ogy 1 ; Update the expiration date of the file. 

* ¢ 1529 

. S 1 0 MARK purty 074 

3 354 1531 CHECR_EXPIR Fone 

s 555 1336 PRIMARY Y vine z spuee TaVC8: 

; 3a 15 IF .PRIMARY_VCo VeBsu AVN NEQ 0 

s So7 te THEN 

s 538 1535 4 BEGIN 

>; 539 1536 4 UCB = .VECTOR CCURRENT_RVTCRVT$L_UCBLST), 0); 

; 540 1537 4 IF .UCB 
: 541 1538 4 THEN LEAVE CHECK_EXPIRE; 

; 542 1539 4 PRIMARY_VCB = .UCBCUCBSL _vCB); 

: 543 1540 3 END; 

> 544 1541 3 

3; 545 1206 3 SGETTIM (TIMADR = DAY 

> 546 1543 3 IF .(PRIMARY_VCBLVCBSO TRETAINMAXI #4) NEQ 0 

3; 547 1544 3T 

; 548 1545 4 

; 549 1546 4 me (PRIMARY VCBCVCBSQ_RETAINMAX], DAY_TIME, DAY_TIME2); 
s 330 1547 5 CMPQ (IDENT_AR REALE 1280 -EXPDATEJ, GEQ> DAY “TIME2) 

: 551 1548 4 i. LEAVE CHECK + 

; 3¢ 1349 4 SMOVE 6, DAY KTIME iDeNt AREAL 12$Q_EXPDATE)); 

: age 132) § END; ! end of block CHECK_EXPIRE 
; 556 1883 2 ! Increment the revision count of the file if specified. 

3; 357 1554 2! 

: 558 1555 2 

; 559 1556 IF .MODECO) 

; 560 1557 THEN 

3; 561 1558 BEGIN 

5 206 1559 IDENT _AREACFI2$W_REVISION] = . IDENT _AREALFI2$W_REVISION]) + 1; 
; 56 1560 CHSMOVE (8, DAY TIME, IDENT AREA F 1280 -REVDATE); 

: 564 1561 3 

3; 565 1208 

3; 566 156 ' Clear the backup date if requested. 

: 44 1564 ! 

:; 568 1565 

; 569 1366 IF .MODEC1) 

; 570 156 THEN 

3; «571 1568 ate: 

2 276 1368 IDENT AREACFI2$Q_BAKDATE]) = 0; 

; 57 1570 poem, “AREALF 1 2$07| _BAKDATEJ)+4 = 0; 

3: 574 1571 

s 575 1376 

; 576 157 1 END; ! end of routine SET_REVISION 


mn 
= 
Seal 


S 


sss 
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10 
DEAC -Jan-1985 17:47: AX-11 Bliss-32 Vv4.0-74 
ree 681 B-Jan-1985 15505393 PTTK BOSSRE IDEAL CS Boost 


-EXTRN SYSSGETTIM 
-ENTRY 5E] REVISION. Save R2,R3,R4,R5,R6 
SUB #16, SP 


oS 
oO 


7 
E 10 cS L2 
1 04 aC VE HEADER, R1 
0 61 9A MOV7BL (R1) Ro 
6140 3€ ¢ MOVAW (R1)CROJ, IDENT_AREA 
01 Al OA MOV7BL 1(R1), RO 
1 O”A 4 MOV BL (R1), R2 
: Ce 7 UBL2 Re, a9 
i b k RPL RO, #23 
D iF D BLSSu 9 
51 DD F PUSHL 1 
00006 cf 01 F 1 CALLS #1, MARK DIRTY 
2 98 AA D 6 MOVL <-104(BASE), PRIMARY_VCB 
OE A2 8 A TSTW © 14( PRIMARY VCB) 
OE 02D BEQL=SésédTSS: 
50 9C AA DO O002F MOVL  =100(BASE), RO 
0 44 a0 DO 000 3 MOVL $8(RO), uc 
4— 13 000 BEQL 4 
52 4 A p 0039 MOVL  52( UCB), PRIMARY_VCB 
8 AE OF PUSHAB DAY_TI 
000000006 00 01 F 9 CALLS #1, SYSSGETTIM 
78 2 p i st YeOcPRIMARY. vCB) 
6£ 8 AE sn & ¢€ SUBL3 116(PRIMARY_VCB), DAY_TIME, DAY_T!ME2 
4 AE oC AE DO MOVL DAY_TIME, DAY TIME2 
06 A Ae D0 SBwC 120TPRIMARY_VCB), DAY_TIME2 
5 0 CF C MNEGL 
04 AE 2a 6 OD é CMPL 4g UIDENT_AREA) , DAY_TIME2 
OF 19 BLSS = 4 
16 00066 BGTR $ 
6E 26 Ab b 5B CMPL 8(!DENT_AREA), DAY_TIME2 
1 BEQL $ 
1f BLSSU 4$ 
06 INCL R 
D6 0007 INCL =R 
O2 FFFFFFFFE © 8F CF CASEL RO, @-1, #2 
0008 0008 0006 y $= - 
i at te 
26 Ab 3 08 28 $: MOVC3 #8, DAY_TIME2, 38(IDENT_AREA) 
s aC E $: BLBC 
4 ag 8 INCW 20(IDENT_AREA) 
1€ at 08 A€E 8 MOVCS #8, DAY_TIME, 30(IDENT_AREA) 
0 08 ac 1 51 8s: BBC #1. MODE, 
2 M6 OPC CLRQ 46( IDENT. AREA) 
04 9C 9$: RET 


; Routine Size: 157 bytes, Routine Base: SCODES + 029€ 


OPP eee eee ee ee re ree rere re rere re rere rere re rererererererererererere ere rere re 
td aad dad ed 
PAAMAAAA 
WOOO 20 oO 


a Used: 345 pages 
; oe ation Complete 


10 

b-Jan-1985 17:47:09 AX-11 Bliss-32 V4.0-742 Page 18 

-0¢t-1984 12:43:27 F11X.BUGSRCIDEACCS.832;1 (4) 
PSECT SUMMARY : 
; Name Bytes Attributes : 
; SCODES 827 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
3 Library Statistics : 
owes ee ee ee oe Syabels occococe Pages Processing ; 
3 File Total Loaded Percent Mapped Time ‘ 
;  .$255$DUA18:(SYSLIBILIB.L32;1 18619 76 0 1000 00:02.0 ‘ 
: COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:DEACCS/OBJ=OBJ$:DEACCS MSRC$:DEACCS/UPDATE=(BUG$:DEACCS) ; 
3 Size: 827 ¢ + 0 data bytes ‘ 
; Run Time: rs ae r : 
; Elapsed Time: 38:9 : 
3; Lines/CPU Min: 551 ‘ 
; ees Ae tiga | 45464 ‘ 


1443 VaX/VNS V4.1 SRC_LST MCRE UPD 


